let lexbuf outchan l = 
  Emit.f (Parser.statement Lexer.token l)

let f src =
  let inchan = open_in (src ^ ".cb") in
    try
      lexbuf stdout (Lexing.from_channel inchan);	
      close_in inchan	
    with e -> (close_in inchan; raise e)
      
(* ここからコンパイラの実行が開始される *)
let () = f "test"
